home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / AmigaTalk_X / prelude / Char.p < prev    next >
Encoding:
Text File  |  2002-03-13  |  3.0 KB  |  89 lines
  1. pTempVar <- <primitive 110 18 >
  2. <primitive 112 pTempVar 1  " printString " \
  3.   #( #[ 16r30 16r20 16rFA 16r01 16r3A 16r0B 16r12 16rF3 16rF5] \
  4.     #( '$'  )) >
  5.  
  6. <primitive 112 pTempVar 2  " isVowel " \
  7.   #( #[ 16r20 16rFA 16r01 16r33 16rF3 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " isUppercase " \
  11.   #( #[ 16r20 16r30 16r31 16r82 16r02 16rF3 16rF5] \
  12.     #( $A $Z #between:and:  )) >
  13.  
  14. <primitive 112 pTempVar 4  " isSeparator " \
  15.   #( #[ 16r20 16rFA 16r01 16r37 16rF3 16rF5] \
  16.     #(  )) >
  17.  
  18. <primitive 112 pTempVar 5  " isLowercase " \
  19.   #( #[ 16r20 16r30 16r31 16r82 16r02 16rF3 16rF5] \
  20.     #( $a $z #between:and:  )) >
  21.  
  22. <primitive 112 pTempVar 6  " isLetter " \
  23.   #( #[ 16r20 16r80 16r00 16rFB 16r03 16r20 16r80 16r01 16rF3 16rF5] \
  24.     #( #isLowercase #isUppercase  )) >
  25.  
  26. <primitive 112 pTempVar 7  " isDigit " \
  27.   #( #[ 16r20 16r30 16r31 16r82 16r02 16rF3 16rF5] \
  28.     #( $0 $9 #between:and:  )) >
  29.  
  30. <primitive 112 pTempVar 8  " isAlphaNumeric " \
  31.   #( #[ 16r20 16rFA 16r01 16r38 16rF3 16rF5] \
  32.     #(  )) >
  33.  
  34. <primitive 112 pTempVar 9  " digitValue " \
  35.   #( #[ 16r20 16rFA 16r01 16r32 16rF1 16r71 16rA1 16rF7 16r03 16r20 16r30 \
  36.         16rBD 16rF2 16r21 16rF3 16rF5] \
  37.     #( 'digitValue on nondigit char'  )) >
  38.  
  39. <primitive 112 pTempVar 10  " compareError " \
  40.   #( #[ 16r20 16r30 16rBD 16rF3 16rF5] \
  41.     #( 'char cannot be compared to non char'  )) >
  42.  
  43. <primitive 112 pTempVar 11  " asString " \
  44.   #( #[ 16r20 16rFA 16r01 16r3A 16rF3 16rF5] \
  45.     #(  )) >
  46.  
  47. <primitive 112 pTempVar 12  " asUppercase " \
  48.   #( #[ 16r20 16rFA 16r01 16r35 16rF7 16r06 16r20 16rFA 16r01 16r39 16rF8 \
  49.         16r02 16rF2 16r20 16rF3 16rF5] \
  50.     #(  )) >
  51.  
  52. <primitive 112 pTempVar 13  " asLowercase " \
  53.   #( #[ 16r20 16rFA 16r01 16r36 16rF7 16r06 16r20 16rFA 16r01 16r39 16rF8 \
  54.         16r02 16rF2 16r20 16rF3 16rF5] \
  55.     #(  )) >
  56.  
  57. <primitive 112 pTempVar 14  " asciiValue " \
  58.   #( #[ 16r20 16rFA 16r01 16r3B 16rF3 16rF5] \
  59.     #(  )) >
  60.  
  61. <primitive 112 pTempVar 15  " > " \
  62.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  63.         16r2B 16rF8 16r04 16rF2 16r20 16r0A 16r14 16rF3 16rF5] \
  64.     #(  )) >
  65.  
  66. <primitive 112 pTempVar 16  " = " \
  67.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  68.         16r2E 16rF8 16r04 16rF2 16r20 16r0A 16r14 16rF3 16rF5] \
  69.     #(  )) >
  70.  
  71. <primitive 112 pTempVar 17  " < " \
  72.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  73.         16r2A 16rF8 16r04 16rF2 16r20 16r0A 16r14 16rF3 16rF5] \
  74.     #(  )) >
  75.  
  76. <primitive 112 pTempVar 18  " == " \
  77.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  78.         16r2E 16rF8 16r02 16rF2 16r5C 16rF3 16rF5] \
  79.     #(  )) >
  80.  
  81. <primitive 98 #Char \
  82.   <primitive 97 #Char #Magnitude #AmigaTalk:General/Char.st \
  83.    #(  ) \
  84.    #( #printString #isVowel #isUppercase #isSeparator #isLowercase #isLetter  \
  85.        #isDigit #isAlphaNumeric #digitValue #compareError #asString #asUppercase  \
  86.        #asLowercase #asciiValue #> #= #< #==  ) \
  87.   pTempVar 2 4 > #ordinary >
  88.  
  89.